home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / dwarfx / dwarf24.lha / dwarfsound.amirx < prev    next >
Text File  |  1980-12-25  |  726b  |  23 lines
  1. /* DWaRFx Sound V0.7b By David 'COolWAve' Newton
  2. \\
  3. // Usage: DFx_Sound.AmIRX <Env> <Nick> <Drawer> <[Sound]/LIST>
  4. \\
  5. // Responds to CTCP GETSOUND commands.
  6. \\
  7. // This script should only be used by the AmIRC rexx script.
  8. \\
  9. */
  10. Parse Arg envadr unick sdrawer sname
  11. Address Value(envadr);Options Results
  12. 'GetMyNick';mnick=result;sname=Strip(sname)
  13. If Upper(sname)="LIST" Then Do
  14.  fname="T:"mnick".List"
  15.  Address Command "List >"fname sdrawer" lformat %-32n%l"
  16.  Address Command "Sort >NIL: "fname fname
  17. End
  18. Else fname=sdrawer||sname
  19. If ~Open('File1',fname) Then "RAW NOTICE "unick" :"d2c(1)"ERRMSG GETSOUND "d2c(2)"|DWaRFx|"d2c(2)" :"sname" does not exist!"d2c(1)
  20. Else Do
  21.  Call Close('File1');"Say /DCC SEND "unick fname
  22. End
  23. Exit